home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / proc.convert1 < prev    next >
Text File  |  2007-02-28  |  500b  |  19 lines
  1. 0250 //
  2. 0260 PROC CONVERT(NUMBER) CLOSED
  3. 0270   IMPORT BASE#,RES$
  4. 0280   IF NUMBER<>0 THEN
  5. 0290     POWER:=INT(LOG(NUMBER)/LOG(BASE#))
  6. 0300     FOR COUNT:=POWER TO 0 STEP -1 DO
  7. 0310       DIGIT:=INT(NUMBER/(BASE#^COUNT))
  8. 0320       NUMBER:=NUMBER-DIGIT*BASE#^COUNT
  9. 0330       IF DIGIT<10 THEN
  10. 0340         RES$:+CHR$(DIGIT+ORD("0"))
  11. 0350       ELSE 
  12. 0360         RES$:+CHR$(DIGIT-10+ORD("┴"))
  13. 0370       ENDIF 
  14. 0380     ENDFOR COUNT
  15. 0390   ELSE 
  16. 0400     RES$:="0"
  17. 0410   ENDIF 
  18. 0420 ENDPROC CONVERT
  19.